home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / hlp_auth / pophel / pophelp2.frm next >
Text File  |  1994-04-16  |  4KB  |  144 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Poplup Help"
  4.    ClientHeight    =   2670
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   5085
  8.    Height          =   3075
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   2670
  12.    ScaleWidth      =   5085
  13.    Top             =   1140
  14.    Width           =   5205
  15.    Begin PictureBox Picture1 
  16.       Align           =   2  'Align Bottom
  17.       BackColor       =   &H00C0C0C0&
  18.       Height          =   495
  19.       Left            =   0
  20.       ScaleHeight     =   465
  21.       ScaleWidth      =   5055
  22.       TabIndex        =   1
  23.       Top             =   2175
  24.       Width           =   5085
  25.       Begin Timer Timer2 
  26.          Enabled         =   0   'False
  27.          Interval        =   50
  28.          Left            =   6825
  29.          Top             =   30
  30.       End
  31.       Begin Timer Timer1 
  32.          Enabled         =   0   'False
  33.          Interval        =   850
  34.          Left            =   6300
  35.          Top             =   1000
  36.       End
  37.    End
  38.    Begin PictureBox picToolbar 
  39.       Align           =   1  'Align Top
  40.       BackColor       =   &H00C0C0C0&
  41.       Height          =   510
  42.       Left            =   0
  43.       ScaleHeight     =   480
  44.       ScaleWidth      =   5055
  45.       TabIndex        =   0
  46.       Top             =   0
  47.       Width           =   5085
  48.       Begin SSRibbon pshToolBtn 
  49.          Height          =   345
  50.          Index           =   0
  51.          Left            =   90
  52.          PictureDnChange =   0  'Use 'PictureUp' Bitmap Unchanged
  53.          Top             =   60
  54.          Width           =   405
  55.       End
  56.       Begin PictureClip PicClip1 
  57.          Cols            =   7
  58.          Location        =   "1890,240,75,2625"
  59.          Picture         =   POPHELP2.FRX:0000
  60.       End
  61.    End
  62.    Begin Label labHelpMessage 
  63.       AutoSize        =   -1  'True
  64.       BackColor       =   &H0080FFFF&
  65.       BorderStyle     =   1  'Fixed Single
  66.       Caption         =   "labHelpMessage"
  67.       Height          =   225
  68.       Left            =   2280
  69.       TabIndex        =   2
  70.       Top             =   720
  71.       Visible         =   0   'False
  72.       Width           =   1440
  73.    End
  74. End
  75. Option Explicit
  76.    DefInt A-Z
  77.    Dim gNumBtns
  78.    Dim CurrentButton
  79.  
  80. Sub Form_Load ()
  81.    Dim I As Integer
  82.    Dim gCurrBtn
  83.  
  84.    gNumBtns = picClip1.Cols
  85.    gCurrBtn = -1
  86.  
  87. '--LOAD TOOLBAR BUTTONS
  88.    For I = 0 To gNumBtns - 1
  89.       If I > 0 Then
  90.          Load pshToolBtn(I)
  91.          pshToolBtn(I).Left = pshToolBtn(I - 1).Left + pshToolBtn(I - 1).Width - 1
  92.          pshToolBtn(I).Visible = True
  93.       End If
  94.       pshToolBtn(I).PictureUp = picClip1.GraphicCell(I)
  95.    Next I
  96.  
  97. '--USE TAG TO HOLD HELP MESSAGE
  98.    pshToolBtn(0).Tag = "Clear workspace"
  99.    pshToolBtn(1).Tag = "Open previous workspace"
  100.    pshToolBtn(2).Tag = "Save current workspace"
  101.    pshToolBtn(3).Tag = "Calculate"
  102.    pshToolBtn(4).Tag = "Cut to Clipboard"
  103.    pshToolBtn(5).Tag = "Insert Excel Object"
  104.    pshToolBtn(6).Tag = "Exit demo program"
  105. End Sub
  106.  
  107. Sub picToolbar_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
  108.    
  109.    labHelpMessage.Visible = False
  110.    Timer1.Enabled = False
  111.  
  112. End Sub
  113.  
  114. Sub pshToolBtn_Click (Index As Integer, Value As Integer)
  115.    
  116. '--POP BUTTON BACK
  117.    pshToolBtn(Index).Value = False
  118.    
  119. '--THE EXIT BUTTON REALLY WORKS
  120.    If Index = gNumBtns - 1 Then
  121.       End
  122.    End If
  123. End Sub
  124.  
  125. Sub pshToolBtn_MouseMove (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  126.    
  127.    CurrentButton = Index
  128.    labHelpMessage.Visible = False
  129.    Timer1.Enabled = False
  130.    Timer1.Enabled = True
  131.    
  132. End Sub
  133.  
  134.  
  135. Sub Timer1_Timer ()
  136.    
  137.    labHelpMessage = pshToolBtn(CurrentButton).Tag
  138.    labHelpMessage.Left = pshToolBtn(CurrentButton).Left
  139.    labHelpMessage.Visible = True
  140.    Timer1.Enabled = False
  141.    
  142. End Sub
  143.  
  144.